From: Alex Schroeder <alex@gnu.org>
Date: Fri, 17 Feb 2006 01:01:44 +0000 (+0000)
Subject: (rmail-mime): Fix invocation of view-buffer.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8790^2~29
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9b27815c5bf5d1e8cff4d5a695d9557cdfc3a1c5;p=emacs.git

(rmail-mime): Fix invocation of view-buffer.
---

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index 9c47b2ef681..8e1655e0c66 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -388,12 +388,13 @@ This calls `rmail-mime-show' to do the real job."
 		  (buffer-substring
 		   (rmail-desc-get-start rmail-current-message)
 		   (rmail-desc-get-end rmail-current-message)))))
-	(inhibit-read-only t))
-    (switch-to-buffer (get-buffer-create "*RMAIL*"))
-    (erase-buffer)
-    (insert data)
-    (rmail-mime-show t)
-    (view-mode 1)))
+	(buf (get-buffer-create "*RMAIL*")))
+    (set-buffer buf)
+    (let ((inhibit-read-only t))
+      (erase-buffer)
+      (insert data)
+      (rmail-mime-show t))
+    (view-buffer buf)))
 
 (provide 'rmailmm)